home *** CD-ROM | disk | FTP | other *** search
/ Virtual Strip Tease / Virtual Strip Tease.iso / mac / INSTALL.RUL < prev    next >
Text File  |  1995-05-15  |  3KB  |  83 lines
  1. //
  2. // Define some predefined constants. Can be used for number only
  3. //
  4. #define MAX_SIZE         145
  5. #define BASE_FILE_SIZE   500000
  6. #define ALT_FILE_SIZE    500000
  7.  
  8. declare // Must use declare keyword to start variable declaration
  9.  
  10.         string  szText[ MAX_SIZE ], szTemp[ MAX_SIZE ]; // Declare string vars
  11.         string  szDefPath[ MAX_SIZE ], szResultPath[ MAX_SIZE ];
  12.         string  szDisk[50], szBitmapPath[ MAX_SIZE ];
  13.         string  szErrMsg [ 255 ], szErrFile [ 100 ];
  14.         string  szREADME [ 100 ], szPath[ 200 ];
  15.         string  szCommand[ 200 ], szDLL[ MAX_SIZE ];
  16.         string  szISDemoPath[ MAX_SIZE ], szDLLPath[ MAX_SIZE ];
  17.         string  szPgrp[ 40 ];
  18.  
  19.         // Strings for about box, remove for your installation
  20.         string  szAbtBitmap[ MAX_SIZE ];
  21.         string  szAbtTitle[ MAX_SIZE ];
  22.         string  szAbtSubTitle1[ MAX_SIZE ];
  23.         string  szAbtSubTitle2[ MAX_SIZE ];
  24.         string  szAbtCopyright[ MAX_SIZE ];
  25.  
  26.         number  nSpace;
  27.  
  28. program /* Must use program keyword to start the statements */
  29.  
  30.  
  31. Start:
  32.        StrCopy( szPgrp, "Virtual Strip" );
  33.  
  34.        // Set the color of the background to be BLUE
  35.        SetColor( BACKGROUND, RGB( 0,0,64 ) );
  36.        SetColor( STATUSBAR, RED );
  37.        SetFont( FONT_TITLE, STYLE_NORMAL, "Helv" );
  38.        SetTitle( "Installing Virtual Strip", 45, YELLOW );
  39.        SetStatusWindow( 1, "Installing Virtual Strip" );
  40.  
  41.        // Enable various objects.
  42.        Enable( BITMAPFADE );    // All bitmaps will fade into the screen.
  43.        Disable( HELP );        //
  44.        Enable( FEEDBACK_FULL); // Feedback window enabled
  45.  
  46.  
  47. Complete:
  48.        // Now create a program group & icons
  49.        SetStatusWindow(  99, "Creating Program Group & Icons");
  50.        Delay( 1 );
  51.        AppCommand( PROGMAN, CMD_RESTORE );
  52.        DeleteGroup( szPgrp );
  53.  
  54.        StrCopy( szPath, SRCDIR );
  55.        AppendToPath( szPath, "ASPC.EXE" );
  56.  
  57.        AddProgItem( szPgrp, "Virtual Strip", szPath, "" );
  58.        Delay( 2 );
  59.  
  60.  
  61.        StrCopy( szPath, SRCDIR );
  62.        AppendToPath( szPath, "README. " );
  63.        StrCopy( szCommand, "NOTEPAD ");
  64.        StrConcat( szCommand, szPath );
  65.  
  66.        AddProgItem( szPgrp, "Virtual Strip-Readme", szCommand, "");
  67.  
  68.        AppCommand( PROGMAN, CMD_PUSHDOWN );
  69.  
  70.        SetStatusWindow( 100, "Installation complete..." );
  71.        Delay( 3 ); //Artificial Delay
  72.  
  73.        AskYesNo( "Would you like to view the README file ?", TRUE );
  74.        if LAST_RESULT = YES then
  75.           StrCopy( szREADME, SRCDIR );
  76.           AppendToPath( szREADME,"README. ");
  77.           LaunchApp("notepad.exe", szREADME );
  78.        endif;
  79.  
  80.        exit;  //Exit installation program.
  81.  
  82.  
  83.